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EDITORIAL 


De nombreux programmes et des Sujets va- Or, on constate de plus en Plus sur cer- 
riés dans cette mouture printannière de JEDI, tains BASIC, l'acquisition de Commandes sembla- 
avecun nouveau venu: APL. bles à celles eXistant sur d'autres langages. 


Four mémoire, voici quelques cas types: les BA- 
CLAIR où du BBC ACORN possèdent 
la notion de procédure et de variables 

A ie . | - (presque du LSE où du PASCAL interprété LATE 
Ce langage a été implanté sur un Système  fami- 1e BASIC 3X du HECTOR HRX aui peut utiliser des 
Commandes FORTH, etC... Mais plus fort 

je cite les nombreux essais de langages 
à partir d'autres langages. on trouve en 


Peut-être nombreux sont ceux qui ne se SICS du QL SIN 
sentent que peu ou point concerné, Et pourtant, 
nos sources d'informations nous ont signalé que 


lial tres répandu, mais n'a point été commer - 
cialisé car il aurait été nécessaire de faire 
l'acquisition d'une extension mémoire d'au 

Rabtenent supérieur à Seul du Jr IX aurait été FORTE, Se PV -LISP OU  Tiny-PASCAL 
. à 4 | $ FORTH, des FORTH écrits 

le. Peut-être n'est ce que partie remise. En 


effet, si l'on considère que la micro d'au- ; : 

: , : ë “es . as OU en FORTH. Alors ourqu i ù 

Jourd'hui correspond à 1 informatique d hier, a : ER 4 9 ne pas imaginer x 
: | FORTH écrit en C à Partir duquel est développé 

du point de vue des performances et des capaci- un PASCAL qui permettrait de dével 6 

tés mémoire, il semble raisonnable de penser GG 41 PPRÈF ‘un: PRO 

que ce glissement ira en s'accentuant. Dé jà di 

maintenant, une capacité de 128 K est monnaie Mais sans délirer, nous VOUS  promettons 

courante, alors que les Pionniers de la micro de vous étonner, et pas Plus tard que le pro- 

révaient d'extensions 2k Où 4K. Chain numéro de JEDI où il Sera question 


. ; FORTHLOG, un langage écri 
L'argument classique et Communément ré- £ ‘ ae Fe PAFORT 


» 


pandu laisse croire qu'avec une Capacité accrue perts (tant pis Pour ceux qui ne da 
de la mémoire des Systèmes, il ne sera plus né- pas ..). 
cessaire de faire appel aux Compilateurs pour 

gagner de la place: que les micros tourneront 

plus vite et que le BASIC ira en S'améliorant. 
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Toute reproduction, adaptation, traduction partielle du contenu 


ce magazine, sous toutes les formes est vivement encouragée, à l'ex- 


clusion de toute reproduction à des fins Commerciales. Dans le 


de reproduction par photocopie, il est demandé de ne pas masquer les 
Cas, de 


références inscrites en bas de page, et dans les autres 


ter l'ASSOCIATION JEDI. Pour tout renseignement, vous pouvez 


Contacter en nous écrivant à l'adresse suivante: 


ASSOCIATION JEDI 8, rue Poirier de Narçay 75014 PARIS 


: (1) 45.42.88.90 (de 10h à 18h) 
É É TEDI #e°22 pans 


1386 


locales 


encore, 
écrits 

abon- 
écrits 
en C, des PROLOG et des 
LISP écrits en PASCAL, des LOGO écrits en BASIC 


Px- 
réabonnent 


APL | Par Jérome LEONIS 


DEMYSTIFIER APL VZeSOMME V 
UN LANGAGE QU'IL FAUT ÇONNAITRE se Ze+/V 
à de. VA 
APL est un langage interprété bien implan- le SOMME 23 45 78 95 
té aux Etats-Unis et en Europe Occidentale, sur 241 


des gros et moyens systèmes, et à présent sur SeSOMME 23 45 78 93 


des micro-ordinateurs. ae S 

Si le FORTRAN, le PASCAL sont surtout utilisés £ ZeSOMME 23 45 78 95 
dans des applications scientifiques, et le CO- 7 

BOL dans des applications de gestion, les Sys- 244 


tèmes APL s'adressent à tous les types de tra- 

vaux, grâce à un environnement aujourd'hui très La fonction SOMME est alors un opérateur parti 
diversifié. culier qui pourra ètre utilisé dans un program- 
me autant de fois que nécessaire. On construira 
donc des fonctions de plus en plus complexes, 
qui elles-même appeleront des fonctions plus 
simples, et ainsi de suite... 


En effet, chez IBM France pour les avoir utili- 
sés, j'ai travaillé sur des produits bien uti- 
les pour le Marketing et le Management comme 
APE permettant la gestion d'écrans, DCF le 
traitement de textes, GRAPHPAK et APGS pour é- 
diter des courbes et des tableaux de données, 
ADI pour interroger les fichiers. De même, ont 
été conçus sur des systèmes APL, des iogiciels A partir du tableau P: 
de CAO, (Conception Assistée par ordinateur), 


L'exemple suivant nous montre l'exécution d'une 
fonction: réduction d'un tableau de prénoms. 


: . à : ï Ve EAN 
des applications industrielles et scientifi- ri 
ques, etc... | JEAN 


Si APL est très apprécié par ceux qui le con- 
naissent, et qui savent qu'à l'aide de quelques 
opérateurs dans une ligne APL, on peut accom- el 
pliir un travail qui nécessiterait plusieurs li- PAUL 
gnes d'un autre langage, il est grandement bou- 
dé par ceux qui considèrent que la programma- 
tion d'APL est un tissu d'alchimie dont Ja 
maintenance est quasi impossible. 


on veut définir le tableau Z: 


qui ne contient chaque prénom qu'une seule 
fois. 


Une seule ligne de programmation en APL a suf- 


À ces derniers, je montrerai après avoir pré- fit pour transformer la matrice P. . 


senté les concepts de base du langage, des 11 faut noter que la fonction REDUIT permet de 
moyens de concevoir des applications "lisibles" transformer une matrice de dimension quelcon- 


en APL. que. 
e fout d'abord, il faut savoir que l'APL re- V Z+REDUIT P 
pose sur le concept de zone de travail active: [11 Z+(v4<\PA.=NP)#P 
si l'on veut concevoir un programme, on va dé- v 
finir pour cela une zone de travail qui con- 
tiendra tout ce que l'on tapera au terminal: on [11 Z+(v#<\PA.=RP)FP 
définira ainsi des variables et des fonctions 
qui pourront étre mémorisées lorsque l'on sau- JEAN 
vegardera cette zone de travail sur disque. PAUL 


) pe JEAN 
contrairement aux autres langages, APL n'utili- 
se pas les mots clé que chacun connait comme e(V/<\PA.= 
FOR, PRINT où IF. Il n'utilise que des symboles (13 ZeLVHRNE RS SEE 
appelés “opérateurs”, et dont les fonctions JEAN 
sont beaucoup plus riches. PAUL 
JEAN 


quant aux variables, il n'est pas nécessaire de 
les déclarer, et elles peuvent être redéfinies E 

<\PA.= 
constamment dans le programme. [11 Z+(v#<\P REIFP 


Un autre facilité: APL est un langage interac- JPJ 
tif, ce qui permet par exemple pendant la mise EAE 
au point de corriger des erreurs dans les fonc- AUA 
tions au fur et à mesure de l'exécution du pro- NLN 
gramme. 


[13 Ze(v/<\PA.=RP)#P 


2° Comment construire une fonction APL: 


(qui correspond à un tableau de données numér i- 


Prenons un premier exemple: soit un vecteur V à . : 
| 1 0 1 
ques dans un autre langage), on écrit: 


V +— 238 C1] Ze (v#<\PA.=RPI/P 
Pour définir Z, la somme de ces valeurs, il 
uffit d'é i Dore 
suffi écrire: 0 10 

Zz = +/ V 1 0 0 


qui se lit réduction par somme du vecteur V. On 1 . <\PA.= | 
peut alors définir une fonction du nom de SOMME (13 & Cv#\PA .ENPIFP 
qui ferait l'opération de réduction. De façon 410 
plus simple et plus “jisible” on écrira: 

ZSOMME V l [1]  Z+(v#<\PA.=NP)fP 


2 caractères APL pour | exécution !! JEAN 
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MUMPS 8: partie par Yannick LE GRAS 


KI 


STRUCTURE DES PROGRAMMES 


Comme nous l'avons dit dans le résumé précédent une routine n ‘est, ni plus 
ni moins, qu’une collection de lignes de commandes. Ces routines sont 
stockées sur disque par l’interpréteur MUMPS. Elles sont considérées comme 
entité unique, Nous ne vous rappelerons pas la convention concernant la 
première ligne d‘une rautine, 


La dernière phase nécessaire, pour la création d’une solution informatique, 
consiste à lier un certain nombre de routines entre elles. Cet ensemble 
homogène est réalisé en utilisant les commandes DO/QUIT, L'utilisation des 
commandes D0/QUIT permet de créer une chaîne de taches modulaires. Chacune 
des taches résaudra un probleme precis et limité. La commande GOTO NOM DE 
ROUTINE est utilisée essentiellement pour transférer le caontrèle d’exécutian 
à un autre programme. 


A) GOTO et DO/QUIT utilisées pour les routines 


Nous pouvons dire de suite que deux possibilités existent pour accéder aux 
routines préalablement stockées, Cet appel peut être fait en utilisant soit 
la commande GOTO, soit la commande DO, Ces deux commandes ont té étudiées 
dans le chapitre précédent, L’ appel à une routine stockée est réalisé en 
précisant à la machine qu'elle doit chercher dans la mémoire de masse, La 
machine cemprendra cette ordre, si on fait précéder le nom de la routine d’un 
accent circonflexe. Exemple : 


GOTO ROUTINE] 


Cet ordre peut être assimilé 2 la commande GOTO ETIQUETTE de !4 routine déjà 
chargée en mémoire. Notez d'ores et déjà que l’interpréteur MUMPS, à la 
rencontre d'un accent circonflexe devant le nom d’une routine ou d’une 
variable, cherchera sur disque, Lorsqu'on cite, simplement, le nom d'une 
routine dans une commande de transfert d'exécution “GOTO,DD), l'exécution 
commence à la première ligne de la routine appelée. Inagihäes pour exemple, 
(bien que ce ne soit pas la méthode de programmation en MUMPSS ]‘enchainement 
de routines suivant pour la gestion d'un compte en banque personnel : 


DEBUT 3PRG, DE DEBUT Y.L,G, 11/18/84 2/18,/54 
jidentification de la banque en cause 


CE .. 


G “CREDIT 


CREDIT 3PRG. DE M.A,J BANQUE CREDIT Y.L.G. 1/18/84 1/14/84 


remise de Chequeis)/impression bordereau 


G “DOERIT 


3PRG. DE M,AJ, BANQUE DEBIT Y.L,G, 2/19/94 2/10/E4 
scomptabilisation des retraits 


CE 


G “SOLDE 


3PRG. DE SOLDE DE BANQUE Y.L,6. ?2/10/84 32/1484 
jcaleul et impression du solde d'une banque 


AUTRE R ! "avez-vous d'autres entrees a effectuer ‘Q/N) :",R 
G FIN:R="N","DEBUT :R="O" AUTRE 
Q jÿfin de traitement 
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Dans l'exemple ci-dessus, nous avons utilisé une méthode de programmation 
qu'un spécialiste appellera “linéaire* et "non etructurée", Nous pouvons, 
bien entendu, programmer d'une facon différente. Ceci est obtenu à l’aide de 
l'instruction DO/QUIT, Reprenans l'exemple ci-dessus en ÿ apportant quelques 
modifications : , 


DEBUT :PRG. DE DEBUT Y,L.G. 1/10/84 2/18/84 
sidentification de 1a banque en cause 


R= LI N “ 
R'="0" G FIN*SOLDE 
“CREDIT 
*DEBIT 
* SOLDE 
DEBLIT +2 


D OYUOD 0: 


CREDIT :PRG. DE M.A.J BANQUE CREDIT Y.L.G, 1/10/8&4 1/18/84 


sremise de chequets)/impression bordereau 


CRC sus 


Q 


DEBIT :PRG, DE MAJ, BANQUE DEBIT V.L.G, 2/18/94 2/10/64 
scomptabilisation des retraits 


Q 


SOLDE ;PRG. DE SOLDE DE BANQUE Y.L,6. 2/10/8284 218/S4 
scalcut et impression du solde d'une banque 


AUTRE R !,"avez-vous d’autres entrees à effectuer CO/N) "SR 
Q:"O/N"IR G AUTRE 
FIN Q fin de traitement 


Il existe encore une autre manière d'écrire ce petit exercice, Nous 
commenterons, à la fin de ce dernier exemple, la nouvelle forme d'utilisation 
de la commande GOTO (G FIN*SOLDE ?, 


DEBUT ;PRG, DE DEBUT Y.L.G, 1/18/8984 2/18°834 
jidentification de Ta banque en Cxuse 


KR= # U El) 
R="0" D “CREDIT,"DEBIT," SOLDE G TANTQUE 
sfin de traitement 


TANTQUE 
FIN 


mms 


:PRG, DE M.A.J BANQUE CREDIT Y.L.6, 1/18/84 1-/18/84 
iremise de cheque(s)/impresston bordereau 


Q 


DEBIT PRG, DE Mal, BANQUE DESIT V.L,G. 2/14,/44 2‘18/84 
comptabilisation des retraits 


ss. rss 


A 


SQLRE 2FRG, CE SOLDE DE EANQUE 7.L.6. 2/14°94 2°10/34 
tcalcul et impression du solde d'une banque 


AUTRE R !,"avez-uous d’autres entrees 3 effectuer CON) 3", R 
G:"O/N"IR G AUTRE 
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Non seulement il est passible d'appeler une routine avec l'ordre Dü paur 
executer une sous-tache, mais aussi de passer le contrôle d'exécution à 
l’aide de 14 commande GOTQ. De plus, MUMPS permet de spécifier un point 
d'entrée {une etiquette) dans les routines appelées. Nous avons illustré ce 
phénomène avec la commande GOTO FIN'SOLDE, Cette commande passe le contrAle 
d'exécution à la ligne FIN de la routine SOLDE. 


Au point où nous sommes parvenu dans notre apprentiseage, nous avons étudié 
comment écrire un ensemble de routines permettant de résoudre un problème 
complet, Dans les chapitres suivants, nous Étudierone comment arganiser les 
informations véhiculées par MUMPS, aussi bien pour les informations 
temporaires stockées dans les variables "mémaire"), que pour 
informations permanentes stockées dans ce qu'on à l'habitude d'appeler des 
fichiers {variables globales), 


les 


Sar/e de k P+3e Æ. 


Le lecteur peut être dérouté par la logique qui 
permet d'arriver au résultat. Pas de récurren- 
ce, pas d'itération, mais simplement une suc- 
cession d'opérations sur des matrices et des 


REVUE DE PRESSE 


Revue de presse partielle devrai-je écrire, 
car il n'y est question que des revues se con- 


vecteurs. 


Avec de l'expérience et en faisant appel à 


vos 
notions d'algèbre linéaire, vous vous aperce- 
vrez qu'il n'est pas si difficile de s'adapter 
à cette nouvelle forme de raisonnement. 


A présent analysez le nombre d'instructions CO- 


sacrant partiellement ou totalement au FORTH: 


MICRO-REVUE: le support bimestriel de l'asso- 
ciation PPC-T TOULOUSE propose dans son der 

nier numéro une implantation du tangage BLAISE 
qui est réalisée en FORTH !! En fait, il 
s'agit tout simplement d'un “Tiny-PASCAL", 
mais l'abondance des explications (l'article 
est en 4 parties) montre comment est défini un 


BOL qu'il faudrait écrire pour réduire ce ta- 
bleau de prénoms...vous commencez à avoir le interpréteur/compilateur BLAISE. Vous y trou- 
virus APL, verez également un article sur une expérience 
' d'apprentissage à la programmation en FORTH en 
ee pis ajouter un prénom à la liste P, il milieu scolaire. 
j 4 LL LL 
12 ce A te HOPRESE RE TEOPHILE: une revue verticale consacrée aux 
micros THOMSON sort maintenant en kiosque. Dès 
P <- P AJOUTE "LUC" le numéro deux, une rubrique sera consacrée 
Vous pouvez de la même façon écrire: FRAME PSnEN Ant eneener FORTE 
AMSTRAD USER: revue britannique publie de 
PeF AJOUTE ‘JACQUES! temps en temps des programmes en FORTH. A no- 
P ter: dès les premiers numéros, un article d'i- 
JEAN nitiation vous introduisait dans les méandres 
PAUL de ce langage captivVant alors que le logiciel 
JEAN FORTH n'était pas encore disponible dans le 
JACQUES commerce. 
P CHERCHE ‘FAUL' MICRO-SYSTEMES: une des rares revues françai- 
2 ses non dédiée à un matériel qui ne ressemble 
F CHERCHE 'FERNANDE pas à un catalogue; dans le numéro de mars 86, 
9 vous saurez tout sur le coprocesseur numérique 
PeP EFFACE ‘JACQUES 8087; à noter, dans le cahier des programmes, 
P une application de cryptage de données écrite 
JEAN en PASCAL et son équivalent BASIC 
PAUL Adresse de PPC-T: 77, rue du Cagire, 
JEAN 31100 TOULOUSE. 
Z+REDUIT F 
Z 
JEAN 
PAUL 


GRAPH -NAX 


11 est donc possible d'écrire des programmes en 
APL qui utilisent des fonctions avant des noms 
mnémotechniques. 


L'alchimie d'APL ne se trouverait que dans des 
fonctions que j'appelerai "utilitaires" (REDUIT 
AJOUTE, EFFACE ...). 


Enfin APL permettant de former des 
fonctions, on peut ainsi construire des 
* cations facilement maintenables. 


"GROUPES" de 
appli- 


vous êtes convaincu par la sou- 
et Si vous ad- 
pour rendre 

connaissez 


A présent, si 
plesse d'utilisation de l'APL, 
mettez qu'il existe des méthodes 

votre programmation "lisible", vous 
vous aussi la joie d'étre un APListe. 


CE:S: 1: 


AMSTRAD 


J.LEONIS MONTREUIL) 
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FORTH UN ASSEMBLEUR 8086 MINIMAL par F.LAFAIX 


BLOC # 11 EE —| 
( ASSEMBLEUR FORTH pour 8886 page 1/1 > 
UOCABLILARY ASSEMBLER IMMEDIATE ASSEMBLER DEFINITIONS BIN 


END-CODE fCOMPILES SMUDGE ; 
NEXT, 11@881@11 C, ; 


I 

Ü 

I 

I 

| 

| 

iaug VARIABLE REG 1484 VARIABLE RM | 
G VARIABLE D ä VARIABLE S @ VARIABLE U [l 
@ VARIABLE MOD @ VARIABLE DISP [ 
| 

Ü 

| 

Î 

| 

| 

| 


PTR @ D: ; : SEG REG! 1WliS!8D!:; Tl, 
REGS 14 D ! OÙUP REG ! 
R/M à 1800 = IF R/M ! 11 MOD ! ELSE DROP 
THEN ; 
REGW 1 W ! REGS ; : REGB 0 W ! REGS ; 


INIT 1@@@ DUF REG ! R/M ! @ D ! @ W ! & MOD ! & S ! ; e=> 


BLOC # 12 
« Assembleur FORTH pour 888é page 2/13 ) 


ES a SEG ; : CS 1 SEG ; : SS 18 SEG ; : DS 11 SEG ; 


REGB DL 16 REGR REGR 


REGB ; : DH 110 REGE ; : BH ii1 REGR ; 


t AL G REGR ; : CL 1 
: AH 184 REGR ; : CH 181 


| 

| 

| 

} 

| 

Ï 

| 

| : AX à REGW 5 CX 1 REGW 3; : DX 18 REGW ; : BX 11 REGW ; 
| : SP 108 REGW ; + BP 101 REGW ; : SI 110 REGW ; : DI 111 REGW ; 
| 

| 

Û 

Ï 

Û 

| 

| 


… 


: W, 1 WW! 3 5 B, 8 W! 3; : ) 118 R/M ! @ MOD :! DISP ! PTR ; 
: ODS @ DISP ! PTR @ MOD ! ; : DS! DISP ! PTR 18 MOD ! ; 


tBX+SIS 6 R/M ! @DS +BX+S15 6 R/M ! 18 MOD ! DS! 


0 ; 
: tBX+DIS 1 R/M ! ADS ; 
: tBP+SIS 10 R/M ! GDS ; 
; ! GDS ; 


+BX+DI$ 1 R/M ! 18 MOD ! DS! 
+BP+SI6 10 R/M ! 1@ MOD ! DS! 
+BP+DIS 11 R/M ! | 


es me mo 


se ne 


tBP+DIS 11 R/M 1a MOD DS! 


BLOC # 13 


( Assembleur FORTH pour 888é6 page 3/13 ) 
: 1SI5 190 R/M ! 6DS ; 5: +S18 184 R/M ! 1@ MOD ! DS! ; 
: DIS 181 R/M ! 8DS ; 5 +DIS 141 R/M ! 16 MOD ! DS! ; 
s: +BP£S 11@ R/M ! iQ MOD ! DS! ; 
: TBXS 111 R/M ! 6DS ; 5: +BXS 111 RM ! 18 MOD ! DS! ; 


: BYTEZ2 MOD à 10 = DISP à 16@@4088@@ U< x IF 1 MOD : THEN 
MOD à 11 SHL 
REG à + 11 SHL R/M à + C, 
1@ MOD à IF DISP à ; THEN 


i MOD à = IF DISP à C, THEN 
118 R/M à = @ MOD à = * IF DISP à ,; THEN INIT ; 


Î Î 
| | 
| l 
| | 
| | 
Ü | 
| | 
| : CW W à IF , ELSE C, THEN ; | 
| | 
| l 
| | 
| | 
l | 
| l 
| | 
[aies | 


BLOC # 14 
{ Assembleur FORTH pour 848é page 4/14 ) 


: MUI MOD à 11 = 1F 10110 W à + 11 SHL REG à + C, 
ELSE 11048G11a W à + C, @ REG ! BYTE2 
THEN CW INIT ; 


| 

| 

Ü 

Î 

| 

| 

: MOU S à IF 18881180 D à = IF 18 ELSE @ THEN + C, BYTEZ | 
ELSE W à D à + MOD à 6= R/M à 110 = * REG à G= * ( 

IF 18188888 + C, DISP à , | 
l 

| 

0 

Î 

Î 

| 

Î 


ELSE 19881698 + C, BYTE2 
THEN 


THEN INIT ; 
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BLOC # 15 


BLOC # 16 


BLOC # 17 


BLOC H 18 


€ Assembleur FORTH pour 8884 P 


PUSH S à IF REG à 11 SHL 114 + C, 
ELSE MOD à 11 = IF 161G@08 REG à + C, 


age 3/13 à 


ELSE -1 C, 118 REG : RYTE2 


THEN 
THEN INIT ; 


ELSE MOD à 11 = IF 1811444 REG à + C, 


ELSE 108@1111 C, 11Q REG ! BYTEZ 


THEN 
THEN INIT ; 


XCHG 16088118 W à + C, BYTEZ ; 


l 

Î 

| 

| 

| 

| 

l 

l 

| 5 POP S à IF REG à 11 SHL 111 + C, 
Î 

| 

I 

l 

l 

| 

| —-> 


( Assembleur FORTH pour 8084 


XLAT 11@1@111 C, ; 

LEA 166a11a1 C, RYTE2 ; 
LDS 11888181 C, BYTE2 ; 
LES 11@@a1a0 C, RYTE2 ; 


ELSE Wèàa+C, 8 Si 


THEN BYTEZ 
S à = W à x IF , ELSE C, THEN 


ADD Da W à + C, BYTE2 ; 
: ADI REG à 0= MQD à 11 = * IF 188 W à + C, CW 
ELSE @ REG ! SW 


| 

| 

| 

| 

| 

| 

| 

| : SW 10804G@068 OVER 184648@G@ LU W à * IF 11 + C, 
| 

| 

| 

| 

| 

| 

| 

| THEN INIT 3 --} 


page 6/18 ) 


1::6.1 


INIT ; 


EEE 


{ Assembleur FORTH pour 8884 
: ADC 1@08@ D à + W à + C, BYTE2 ; 


ACI REG à 0= MOD à 11 = *x IF 181@@ W à + C, CW 
ELSE 16 REG ! SW 
THEN INIT ; 


INC 11 MOD à = W à * IF 1604@84@ REG C, 
+ 


SUR 181@08 D à + W à + C, BYTE2 ; 


page 7/13) 


C, BYTE2 THEN INIT 


SUI REG à 6= MOD à 11 = * IF 181148 W à + C, CU 


ELSE iGi REG ! SW 


| 

| 

| 

[l 

| 

| 

l 

1: à + 
| ELSE @ REG ! 11111110 W à 
Î 

| 

| 

l 

| 

| THEN INIT :; 
| 


{ Assembleur FORTH pour 8688&é: 


SRB 11480û D à + W à + C, BYTEZ ; 
SRI REG à @= MOD à 11 ='# IF 11106 W à + C, CW 
ELSE 11 REG ! Su 
THEN INIT ; 


| 

| : DEC MOD à 11 = W à * IF 1001008 REG à + C, 
ELSE 1 REG ‘ 11111119 W à + C, 
THEN INIT ; 

| : NEG 1111811@ W à + C, 11 REG ! ; 

| : CMP 111880 D à + W à + C, BYTE2 INIT ; 

| : CPI REG à @= MOD à 11 = * IF 1111800 W à + C, 
ELSE 111 REG ! SW 
THEN INIT ; 

| 


page 8/13 


BYTE2 


CW 


; 
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BLOC # 19 


{ Assembleur FORTH pour 8486 -arithm(tique- page 9/13 ) 


: MUL 11118118 W 


à + C, 


106 REG ! BYTE2 ; 


IMUL 11119119 W à + C, 101 REG ! BYTE2 ; 


DIV 11118118 W à + C, 119 REG ! BYTE2 


IDIV 1111@11Q W à + C, 


111 REG BYTE2 


: NOT 11118118 W à + C, 


18 REG BYTEZ ; 


STC 11111841 C, ; : CLC 11111@80@ C, ; 


BLOC # 24 


Assembleur FORTH pour 888Ré — logique - page 14/13) 


AND 188889 D à + W à + C, BYTEZ ; 
ANI REG à = MOD à 11 = * IF 10@188 W à + C, CU 
ELSE 199 REG ! SU 


THEN INIT 


3 


ELSE 1 REG ! SU ‘ 
THEN INIT 


. 
; 


: XOR 1108008 D à + W à + C, BYTE2 ; 
: XRI REG à @= MOD à 11 = »# IF 11810@@ LW à + C, CU 
ELSE 119 REG ! SU 


Î 
Ï 
l 
l 
| 
l 
Î 
1 5: OR 1086 D à + W à + C, BYTE2 ; 
| 
| 
Ï 
Ü 
| 
Î 
| 
| THEN INIT 


| 
| 

| 

| 

| 

| 

| 

| 

: ORI REG à @= MOD à 11 = x IF 1160@ WW à + C, CU Î 
| 

| 

| 

Û 

Ü 

| 

| 


=} 


BLOC # 21 
Assembleur FORTH pour 8886 - opération chaines- page 11/13 à 


REP 1111@01@ C, ; : REPE 1111@611 C, ; 


MOUS 18108188 WW à + C, INIT ; : CMPS 181@8@11@ W à + C, INIT ; 


SCAS 19181110 W + C, LODS 181811@@ W à + C, INIT ; 


STOS 18141810 W à + C, INIT ; 


: CLD 11111188 C, ; ; STD 11111181 C, ; 


: LOOP 11189818 C, C, ; : JOXZ 11188811 C, C, ; 


: LOOPZ 11180881 C, C, 3 : LOOPNZ 11108880 C, C, ; 
| --> 


BLOC # 22 
( Assembleur FORTH pour 8886-Transfert inconditionel-page 12/13) 


INT 110811@1 C, C, ; * + INT3 11001188 C, ; 


CALL R/M à 1884 = IF 11101088 C, , 
ELSE 11111111 C, 164 REG ! BYTEZ THEN ; 


ELSE 11111111 C, 11 REG ! BYTEZ2 THEN ; 


JMP  R/M à 168û 


IF 11181861 C, , 
ELSE 11111111 C, 100 REG ! BYTEZ THEN ; 


JMPF R/M à 18@@ IF 111G61G1@ C, , , . 
ELSE 11111111 C, fai REG ! BYTEZ THEN ; 


| l 
[ | 
[ | 
Ï | 
[ | 
| | 
| | 
| : CALLF R/M à 1086 = IF 18411818 €, , ; 
[ | 
[ | 
| | 
Ï | 
Î l 
l [ 
[ | 
| : JMPS 11i81@11 C, C, ; =} 
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BLOC # 23 
Assembleur FORTH pour 8084 -sauts conditionels- page 13/13 ) 


: JZ 1118180 C, C, ; : JL 1111100 C, C, 3 : JLE 1111110 C, ©, ; 
: JB 111001@ C, C, ; : JBE 1118110 C, C, ; : JPE 1111810 C, C, 
JO 1118008 C, C, ; : JS 1111888 C, C, ; : JNZ 1118181 C, €, 
JGE 1111101 ©, C, 3 : JG 1111111 C, C, : JAE 1118011 C, C, 
: JA 1118111 C, C, 3 : JPO 1111811 C, €, : JNO 1118801 C, €, 
JNS 1111881 C, C, : 


: INTO 1160681118 C, : IRET 11881111 C, 
: STI 11111811 C, : CLI 11111818 C, 


NOP 10819846 C, 


FORTH DEFINITIONS DECIMAL 
{€ Agsesembleur version 1.84 écrit le 4 Août 1984 / F.LAFAIX 


| 
| 
| 
l 
| 
0 
| 
| 
| 
| 
Ï 
Î 
Î 
| 
0 
l 


FORTH. Conversion AN/NA par Roland JEANNIN 


Ce programme fonctionne a l’aide des cartes entrées/sorties de 
la marque Jagot & Leon (E 1@1 LE 103) .11 permet de saisir des 
échantillons analogiques à une vitesse comprise entre 1Q et 
12089 échantillons par seconde,et de les stocker à raison de 
20009 éch. en même temps ce signal peut être reconverti en 
subissant un décalage programmable . On peut donc obtenir des 
effets d’écho ou de déphasage (de 1 microseconde a 1 seconde). 
Plusieurs fonctions d’affichage sont possibles par exemple l’af- 
fichage de 20 lignes analogiques totalisant 18808 échantillons. 
Chacune de ces lignes peut etre affichée individuellement. Puis 
on peut aussi n’afficher qu’un ech. sur deux ou moins. 
Mots permettant de mémoriser: 
- OP1 : Paramêtres : Nombre de fois qu’on pratique le processus 
entier (pour travailler en continu en audio fréquences 
avec déphasage) de 1 a 30000 
Temporisation pour diminuer la fréquence 


d’échantillonnage ex:3 correspond à 
12008 éch./sec 
; Retard pour ré-injecter le Signal pour 
un echo où un déphasage. Q 
— OP3 : Parm.:Durée de processus 
Décalage en microsecondes (MQS) ou millisecondes NV 
(MS) du retard. Q 
Fréquence d’'échantillonnage en éch./sec KÇ 
-— QF4 : Charge en mémoire les parm. d’'OP3. 
— DECAL : complète l’opération OP3+0P4. o 
OP3+0P4+DECAL forme ume opération equivalente à opi avec des 
parm. differents . 
Mots permettant de tracer: 
— TRACER : Trace 28 lignes analogiques (Aucun parm.) Ve 
— TRI * parm.ï leme ligne analogique 
Dilatation (n'affiche que 1/n éch.) 


— TR2 cas particulier de TRi,affiche la premiere ligne 
= TRES 7 7 » 
Mots Servant à garder sur disque : 
— DISC : sauve 20008 éch. aux écrans-disc 16@ a 150 
- BIECS : redonne les éch. depuis la disquette 
EXEMPLES 
2 5 1@@00 [PI :Repasse 2 fois la mem.avec une tempo qui 
permet une frequence d’environ 11808 éch./sec.Le retard 
à la sortie du convertisseur N/A sera d’environ .6 sec. 
1A 38 MS 50@9 QP3 OPA DECAL : opération qui dure 1@ sec. 
de retard à la reconversion =3@ millisec, avec une fréquence 
d‘éch de 5@2@ par Sec. 
ia E TR1 affiche les lignes 1@ et 11 \ raison de 1 éch sur ? 
L'ecran 4% est un petit assembleur complet sans les anemoniques 
mais avec des labels et des jumps atsolus et relatifs. 
Renseignements : Jeannin tel 74 27 @2 @9 Isle d’Abeau 


œ 
= 


mo Îe 
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SCR # 4S 
@ ( Langage Machine : calculs auto adresses + utilitaires ) 
1 : VAR VARIABLE :; : CT CONSTANT ; @ VAR LMS® @ VAR IDL 3@ ALLOT 
5 @ VAR IR 280 ALLOT IR VAR FI &@ VAR CTI à DEC DECIMAL ; 
3: >1IPIe!2PI +! 3; = 1> -2 PI +! Pie e 5 =: IL 2 * ID + ; 
4 : LMD -2 ALLOT LATEST.PFA DUP 2 - ! SPe LMS@ ! HEX 3 
S HEX © VAR SPI LMD ED C; 7B C;: LMSO : C3 C: 12C : 
& + LMC sPe 2 - LMS® @ 2 - 2DUPF < IF DO I e DUP ABS FF > IF ; ELSE 
7 C, THEN -2 4 O0P THEN SPI 3 
g ? LMF DEC C3 12C LMC CTI @ i+ @ DO 1> CUP FF > IF 
9 190 - IL @ 1> 2 —- ! ELSE IL @ 1> 1 - DUP ROT SWAP — 1 —- SWAP 


1@ C' THEN LOOP @ CTI ! IR PI ! 3 


11 5 64% >R LMC HERE Rÿ IL ! 3 
12 : JR DUP ÈR LMC R> HERE I 21 1 CTI +! 3 
13 : JA 180 + JR ; DEC 
14 
15 3S 
SCR # 44 


R 
@ { Analogique/digital page 1/4 ) 

1 @ VARIABLE REG 19998 ALLOT 1 VARIABLE FOIS 

? 1 VARIABLE TEMPO REG VARIABLE REGD @ VARIABLE ACQ 
3 REG 20000 + VARIABLE REGF 

4 HEX F9E0 CONSTANT ANA F9F1 CONSTANT DIG DECIMAL 

5 

£ 


:S 


SCR # 47 
( Analogique/digital page 2/4 ) 
1 @ VARIABLE DECAL LMD OS F3 
2 Q ++ 21 REG ELU SB REGN 
4 1 ++ 30 ACG FE @8 26 2 JR ©1 ANA ED 
4 78 77 AF ED 79 18 4 JR 
S 2 ++ 3E 04 
& 3 4% 30 20 3 JR 
7 4 *+ @1 DIG 14 ED 79 AF ED 4B TEMPO 
GS S 44 QE 7S R1 20 S JR 3A REGF 
9 BB 20 4 JR 3A REGF 1+ BA 20 £& JR 
1e 11 REG 1 - 
11 & ++ 123 ZA REGF 23 BD 2@ 1 JR 3A REGF 1+ 
+2 BC 2@ 1 JR ED 4B FOIS @B EL 43 
15 FOIS 72 B1 EQ @ JR FH 
14 Ci LMF 
15 35 
LCR # 4 
@ ( Analogique/digital page 3/4 ) 
1 : OP1 ( Fois tempo retard--) REGF @ SWAP - REGD ! TEMPO : FOIS ! 
2 7 EMIT : 
3 : SGA CMOVE UPDATE FLUSH ; 
4: co 40 @ DO REG I SQD # + 1 328 + BLOCK SAUVE LOOF 3 
S : DIS0> 40 @ DO I 22@ + BLOCK REG 1 500 + + SAUVE LOSP : 
4 @ VARIABLE WIN @ VARIABLE OIL 
7 : TRACER CLS 20 @ DO 19 I —- WIN ! S0@ 2 DO REG I + 17 WIN € - 
& =Q@ + + C@ 10 128 */ WIN @ ZQ # + I FLOT LOUF LOCF 
7 1 75 LOCATE 7 EMIT KEY DROP : 
18 100 CONSTANT MS 1 CONSTANT MOE 
11 : TRI CU Leme DIL--) DIL ! CLS EUP DUF £64@ DIL € / + SWAF 
12 no REG 1 + Ce 400 256 +/ OVER I SWAP — DIL @ * PLOT LOUP 3 
13 5 TR? Q 1 TRI 5  : TRA @ 1@ TRI : 355 
14 
15 


49 

Analogique/digital page 4/4 ) 

OPZ ( duree. decalage: {mos ou ms}, freq d’ech-- ) 

5R 14388 100 R> #/ 9€ — 18 / 1 MAX DLF TEMPO ! 

7 # £3 + DUP >R +/ REG SWAP — 20000 + REG MAX REGF MIN REGD 
SO KR +/ 1 MAX FOIS ! 53 

: F4 TEMPO @ . REGD @ . FOIS € . : 


a 
3 


VNSNBRWNES ZT 
A 


ss 
«a 
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MATHEMATIQUES 


ALGORITHME 


Les fractions continues, 
Approximation d'un nombre par une fraction. 


Quelques définitions, pour commencer: 


nombre rationnel: quotient de deux entiers. 

nombre algébrique: racine d'un polynôme à 
coefficients entiers. 

nombre réel: nombre mathématiquement défini. 

De plus, dans cet article, la précision, 
positive, sera le quotient de la valeur di- 
visée par l'écart: différence entre la valeur 
exacte et approchée. 

Pour différentes raisons, il a été préféré, 
en FORTH, de représenter un nombre par un quo- 
tient d'entiers, plutôt que par la représenta- 
tion en virgule flottante, ce qui augmente la 
précision pour les nombres moyens, mais la di- 
minue pour les petits ou grands nombres. 

Comment touver la fraction qui approxime le 
mieux un nombre donné à l'avance?: 


DEVELOPPEMENT EN FRACTION CONTINUE 


La clef du problème est le développement en 
fraction continue: à partir du nombre donné à 
l'avance, CPE construisons la suite: 

+ 1 / u, 


CCC 


a; est un entier, obtenu par t'oncature, cas 
qui ne sera pas examiné ici, ou par arrondi: 
c'est l'entier le plus proche de Uj donc avec 
une précision de 2 * ai ; la prise en compte 
de à; dans la détermination de u, multiplie la 
précision par au moins 2*à; , et le majorant 
du numérateur sera multiplié par a; 

Pour un nombre rationnel, la suite est fi- 
nie: le dernier nomre est un entier,pour un 
nombre algébrque, la suite des a. 


i 
Pour savoir à quelle profondeur s'arrêter, 


il suffit de comparer le majorant au plus grand 


nombre codable en 15, 16, 31 ou 32 bits. 
Il suffit alors, pour remonter les calculs, 
de construire: 


n+1 
Vn Un 
V = u # 

n-1 n-1 Vn * Vnai 


Ou, =2.7182 8182 845 3 


est périodique, 


par Mr. KERJEAN 


Cet algorithme est applicable directement 
pour cadrer sur 15 ou 16 bits un quotient d' 
entiers de 31 ou 32 bits; c'est une applica- 
tion de la méthode générale d'évaluation d' 
une grandeur inconnue, par rapport à une unis 
té, unique ment au compas: la grandeur ue est 
évaluée par rapport à l'unité U4» reste un 
écart LE inférieur à la moitié de U4s puis 
c'est l'unité qui est évaluée par rapport à 


l'écart U,: 
Us no x uy + Un 
u, = n;, Us + Us 


La convergence est plus rapide que la di- 
chotomie, Cette méthode peut avoir d'autres 
applications,comme le calcul de logarithme. 


EXEMPLE DE CALCUL 


Passons à la pratique. Il n'a pas été né- 
cessaire d'écrire un programme, d'usage peu 
fréquent, néanmoins, avis aux amateurs: il 
pourra intéresser plus d'un. Les premiers 
calculs devront être précis: les calculs à 12 
décimales sont possibles avec une calculette 
ordinaire à 8 chiffres, voici comment: par 
exemple, pour inverser u = 0.2817 1817 155 , 
un premier caicul donne: 1/u = 3,5496 467 
Calculons: 

3549 *1817.155 / 10000 M+ Décimales: 0.9083 
3549 * 2817 M+ Résultat: 999 8177.9 


10000 -8177 - 0.9083 * 10000 / 2817.1817 
= 6467.7819 


d'où 1 / u = 3.5496 4677 819 
Je propose comme exercice de développer en 
fraction continue les nombres suivants: raci- 
ne carrée de 2, 5, 13, et le nombre:3.3781 
9799 7775 3058 9543 9377 0856 5072 3025 0840 
L'approximation de e s'obtient par les 
calculs suivants: 


lu,=1/(3-2.7182 re) 


ds 2: ) 
6 
4 


=-3.5496 4677 82-4 12 8 
21/(-443.5496 4677) 

= 2.22047928 51 2 24 192 
3  4.5355 7348 8 5 120 1920 
4 -2.1531 9318  -2 240 7680 
B -LÉL5277 006 #7 1680 9 2160 
6  2.1173 24 2 3360 36 8640 
7  B8.5231 4 9 3 0240] 663 5520 
8 -2.0984 -2 6 0480| 2654 2080 
9 -10.166 _10 60 48005 3084 1600 
10 -6.018 -6| 362 8800! 6.37 10° 
11 -56.4 -56|/2 0321 2800/713.45 10° 


i u; a; précision 


majorant 


amie 
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Pour les déterminations d7 et d8 de CRE s' . 

arrêtant à la 7 et gème ligne, les calculs Précision 2 
sont: 0.49 109 .:25946 -9545 2689 1211 v 
9.5 10° 49171 18089 -5096 -2295 Vg 


La précision correspond à 29 bits pour d7 


et 34 pour d8. 
Rien de mystérieux, comme on peut le voir, 


sur la provenance de fractions telles que 
22 / 7 ou 355 / 113 


FORTH DEFER en 79- Standard par Marc PETREMANN 


PINIT € —-—--) 
CR ." Vecteur non initialisé 3 ERROR ; 


DÉEFER 


CREATE © FIND ?INIT ] LITERAL , 


DOES> @ EXECUTE ; 


C1 € ---) 


t COMPILE] LITERAL ; IMMEDIATE 


C6 Cfa =) 
2+ STATE @ 


[COMPILE] LITERAL COMPILE 
! THEN ; IMMEDIATE 


Q 
‘ 


ï 
LES 


Création de mots vectorisés au for- 
mat 83-STANDARD. Exemple: 


DEFER TEST crée un en-tête TEST 
t'1 CLS IS affecte le CFA de CLS 
au PFA de TEST. Doréna- 


vant, TEST exécute CLS 


Dans le prochain numéro de JEDI: 


Un système expert complet avec moteur d'inférence d'ordre 1 


écrit en langage FORTH 


Ce programme appelé FORTHLOG est extensible et traite les variables 
numériques et alphanumériques 


11 est implantable sur tous les systèmes (implantation d'origine sur 
COMMODORE 64) F.I.G., 79-STANDARD et 83-STANDARD. 


db LED 
E —— Le MASABINE 
— | micro 
mi INFORMATIQUE 
ICI tr MAINTENONT! 
présente 
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FORTH GESTION DE DONNEES: FBASE 1 


UNE GESTION PAR BLOCS 


Ce programme est inspiré d'un article pa- 
ru dans le mensuel Dr.DOBB'S Journal paru sous 
le titre “FILE MAINTENANCE IN  FORTH". 11 est 
réécrit ici sous une forme compatible avec les 
commandes du système THOMSON TO7, TO7-70, et 
peut être adapté sans inconvénients sur la plu- 
part des systèmes FORTH au standard FIG où 79- 
STANDARD. 


Je ne vais pas pour une fois expliquer le 
fonctionnement des différentes commandes de ce 
programme, mais brosser un tableau général des 
notions mises en jeu. 


L'enregistrement dans les blocs: l'éditeur du 
langage FORTH agit sur le contenu des blocs. 
Ces blocs correspondent physiquement à des por- 


tions du support d'enregistrement de la dis- 
quette (ou cassette dans le pire des cas). 

Par convention, un bloc correspond à un espace 
mémoire de 1024 octets, soit 1 Koctets. La po- 
sition en mémoire de ce bloc peut être relevée 
en tapant la commande n BLOCK où n°  corres- 


En général, le numéro de bloc et le numéro d'é- 
cran est le même, mais ce n'est pas un cas dgé- 
néral. Ainsi, sur THOMSON, la position en mé- 
moire du contenu de l'écran 15, pour exemple, 
peut être mis en évidence en tapant la commande 
15 BLOCK 1024 DUMP Dans le cas de l'AMSTRAD, 
il faudra taper 15 B/SCR *x BLOCK 512 DUMP. Le 
mot B/SCR détermine le nombre de blocs par é- 
écrans, le mot B/BUF délivre le nombre d'octets 
par BLOCK. La relation n B/SCR *x BLOCK B/BUF 
DUMP sera la plus générale et s'applique donc 
au THOMSON comme à l'AMSTRAD (ou les autres 
systèmes). 


Pour enregistrer une donnée dans un bloc, et 
et par conséquence sur le disque (ou cassette), 
on peut faire une commande du genre: 


donnée position n BLOCK + C! ) UPDATE 


et SAVE-BUFFERS ou FLUSH (selon systèmes). 
récupérer notre donnée, on peut taper 


position n BLOCK + C@ ( ou @ ) 


( ou ! 


Pour 


L'intérét de cette méthode n'est pas évident au 
premier abord. Pourtant elle reste la plus pra- 
tique pour le stockage de données à accès di- 
rect y compris pour les données sur cassette, 
car on peut faire transiter plusieurs blocs si- 
multanément en mémoire (jusqu'à 20 unités sur 
THOMSON), ce qui permet de gérer les blocs à la 
manière des “RAMS DISK". Mais voyons plus en 
détail l'implantation de données tel qu'on 
l'entend quand on parle de fichiers. 


Rappel _sur_1a structure des fichiers 

Un fichier est un ensemble ordonné de données 
dont l'accès est réalisé à l'aide de clés, par 
accès séquentiel ou par accès direct. Dans Jle 
cas nous intéressant, on étudiera l'accés di- 
rect, étant entendu qu'il Vous est loisible de 
modifier le programme listé plus Iloin pour 
réaliser un accès séquentiel ou par une table 
d'index. Ces données sont regroupées par enre- 
gistrement; c'est le premier sous-ensemble du 
fichier. Chaque enregistrement est divisé en 
champs. En BASIC, c'est l'instruction FIELD qui 
permet l'affectation de la taille et du type de 
chaque champ. 


Voyons comment, en langage FORTH, nous allons 
implanter les données de notre fichier en te- 
nant compte de ce qui est exprimé ci-dessus. 


Implantation d'un enregistrement dans un bloc 

Prenons Comme bloc de départ de notre fichier 
le bloc bl.orig. et dim.enr la taille d'un en- 
registrement. Le nombre d'enregistrements maxi- 


mum Contenus dans un bloc est donné par la re- 
lation 


pond au numéro du bloc auquel on désire accéder. 


par Marc PETREMANN 


B/BUF dim.enr / 


Soit RLEN la variable contenant la taille d'un 
enregistrement (RECORD LENGTH), et  REC/BLK le 
nombre maximum d'enregistrements, on peut ini- 
tialiser REC/BLK par: 


B/BUF RLEN @ / REC/BLK ! 


Dans le cas du THOMSON, B/BUF peut étre rempla- 
cè par le litéral 1699 et par 1924 pour les 
systèmes autre qu'AMSTRAD (512 dans son cas). 


On locaiïiisera le bloc contenant 


ment n en exécutant: 
n REC/BLK @ /MOD 


l'enreristre- 


où le qotient représente le numéro de bloc con- 
tenant l'enregistrement recherché et le reste 
correspondant à la position de l'enregistrement 
dans ce bloc. Soit RNO le numéro d'enregistre- 
ment, BBLOCK le numéro du premier bloc du fi- 


chier, l'adresse de l'enregistrement recherché 
sera obtenue par: 

n REC/BLK @ /MOD ( n --- qot res ) 

BBLOCK @ + BLOCK SWAP ( qot res --- res adr ) 

RLEN @ x + ( res adr --- adresse d'enreg. ) 
Le résultat est stocké dans RLOC (RECORD LOCA - 


TION). 


Les enregistrements ne peuvent chevaucher deux 
blocs, car la fonction de division en FORTH ne 
délivre que le qotient plancher (20 10 /__ donne 
2, mais 29 10 / donne aussi 2) 


Donc, dans le meilleur des cas, la place perdue 
d'un bloc au suivant sera nulle, sinon elle se- 
ra de RLEN-1 dans le pire des cas. On optimise- 
ra donc en prenant comme taille d'enregistre- 
ment une valeur égale à B/BUFF divisé par REC/ 
BLK. 


Mais cette optimisation n'est pas obligatoire. 


Gestion des champs dans un enregistrement 

Le surnom du programme est fBASE-I, ce qui a un 
léger rapport à dBASE II, mais n'a pas la pré- 
tention d'égaler ce progiciel. Cependant, fBASE 
I lui est supérieur sur un point, celui de la 
présentation des données. En effet, en dBASE-II 
la saisie des données est réalisée en "plein é- 
cran”, mais avec pour seule identification des 
champs, un libellé de taille réduite et souvent 
symbolique. Si on désire améliorer cet état de 
chose, il faut créer un fichier de commandes. 
Pour fBASE-I1, la saisie des données est égale- 
ment réalisée en "plein écran", mais avec la 
possiblilité de positionner séparément les 

champs de saisie et d'identification. Exemples: 
on peut mettre le champ de saisie du nom à la 

la suite de l'identification: 


NOM : 


ou bien deux lignes en dessous: 
NOM 


et ainsi de suite pour l'ensemble des champs de 
saisie et leurs identificateurs. 


Dans dBASE-II, l'identificateur d'un champ cor- 
respond au nom qui lui a été attribué lors de 
la création de la structure du fichier (comman- 
de CREATE et LIST STRUCTURE). L'identificateur 
ne peut contenir ni espace, ni signes autres 
que les caractères aplhanumériques. Avec fBASE- 
I, l'identificateur peut étre constitué avec 
l'ensemble des caractères alphanumériques dis- 
ponibles au clavier, excepté le séparateur > 


Un exemple de gestion des champs de 
trement est donné dans le bloc 23. 
la ligne suivante: 


l'enregis- 
Considérons 


90 69 G9 ©57 32 9 GS NOM” 


On indique au système FORTH que le champ iden- 


tifié par NOM est paramétré par: 


99 69 position en yx de l'affichage de l'iden- 
tificateur. 
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go @7 position en yx du champ de saisie à l'é- 
cran. 


32 taiile du champ de saisie 

99 type des données à saisir (ici alphanu- 
mérques). 

1277] position dans l'enregistrement. Cette 


valeur est égale à la somme de la taille du 
précédent champ et de sa position. Dans le bloc 
23, à la seconde ligne de la structure du fi- 
chier, le champ PRENOM" débute au 32 octet de 
l'enregistrement (valeur de la taille du champ 
NOM"), et fait 22 octets de longueur. 


NOM" correspond à l'identificateur du pre- 
mier champ de l'enregistrement. Il peut être 
constitué de 255 caractères maximum, espaces 
compris et se termine toujours par le caractère 

“ On aurait aussi bien pû définir l'identi- 


ficateur 


PATRONYME DE L'ADHERENT" 
ce qui est impossible avec dBASE-II. 


Voici ce que donne à l'écran une page de saisie 
de fBASE-I: 


Structure d'un enregistrement 
L'exemple fourni par le bloc 23 montre 


ment la structure d'un enregistrement. 
ligne correspond aux paramètres d'un champ. 


claire- 
Chaque 
11 


y a 9 champs. On définit donc la structure du 
fichier par 9 PBUILD ADHER 

PBUILD est un mot de définition de structure. 
11 doit étre suivi par le nom de la structure, 
ici ADHER, et le détail de chaque champ. 

Le fichier proprement dit est paramètré par 
le mot qui suit, ici GESTION. Ce mot est défi- 


ni par l'utilisateur. Les paramètres qui précè- 
dent IREC (pour INIT-RECORD) signifient que 
l'on initialise un fichier débutant au bloc 200 
et dont les enregistrement ont 186 octets de 
longueur : 


28 186 IREC 


Puis divers paramètres sont transférés depuis 
le début de l'enregistrement @ vers PHIGH. En 
fait, la fiche 9 doit être initialisée "à la 
main” par: 

 @ RECORD ! UPDATE SAVE-BUFFERS 
en ayant pris la précaution d'initialiser la 


position du fichier par 289 BBLOCK ! 


Le détail de la structure d'un enregistrement 
n'est pas automatisé. La position des diffé- 
rents champs reste à votre charge. 11 est donc 
nécessaire de connaître les différents types de 
données gérées par fBASE-I: 


type 9: données alphanumériques; tout caractère 


aiphanumérque, à concurence dé “la” taille du 
champ de saisie. 
type 1: donnée numérique sur 1 octet. Sera af- 


fichée dans un champ justifié à droite. 
Sera affichée 


type 2: donnée numérique 16 bits. 
dans un champ justifié à droite. 


type 3: donnée numérique 16 bits; affichage de 
type “financier” avec virgule décimale. 


4: donnée numérique 32 bits, sera affichée 


un champ justifié à droite. 


type 
| dans 


type 5: donnée numérique 32 bits; affichage 
identique type 3. 
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La taiile minimale de l'enregistrement pour 
chaque type de données est: 

type 1: taille du champ de saisie. 

type 2: 2 octets. 

type 3: 2 octets. 

type 4 et 5: 4 octets. 


Saisie du tisting: 
La saisie du listing ne doit pas poser de pro- 
blème particulier. Les mots spécifiques THOMSON 
sont les suivants: 


ASC dépose sur la pile le code du premier ca- 


ractère de ia chaîne qui précède. Exemple: 

" A" ASC = 
équivaut à 

65 = 
CREATE équivalent 79-STANDARD de «‘BUILDS. 
INVCOLOR bascule l'affichage en “vidéo inver- 
se”. Peut être omis à la frappe. 
LOCATE positionnement en ligne y, colonne x. 


Equivaut à LOCATE sur AMSTRAD. Pour les autres 
systèmes, voir si implanté, sinon il faut créer 
ce mot en se servant d'une séquence US (code 


ACSII US , càd 31 EMIT) 


Menu de présentation: 


Performances actuelles du programme fBASE-I1] 
Après essai sur THOMSON T07-70, fBASE-I effec- 
tue une recherche et un affichage du contenu 
contenu d'un enregistrement plus rapidement que 
dBASE-II. Par contre, il ne permet pas l'édi- 
tion et la recherche par critères, ce qui est 
normal vu l'état d'avancement du programme ac- 
tuel. fBASE-I occupe moins de 3,5 K. Un même 
fichier peut être édité avec différentes struc- 
tures (présentations), soit partiellement, soit 
totalement. 


11 fonctionne également en version cassette. 
Dans ce cas, il est conseillé de préparer le 
système avec un maximum de buffers. Dans le cas 
du THOMSON, on tapera: 


29 BUFFERS 


CLOAD 1+ SWAP DO I BLOCK DROP LOOP ; 
BBLOCK DUP 20+ CLOAD 
ce qui charge 20 blocs d'un coup. L'amplitude 


d'accès aux différents enregistrements sera a- 
iors limitée, mais en considérant l'espace mé- 
moire des blocs comme un disque virtuel, on bé- 
néficie quand même de l'accès direct dans cet 
espace. Il faudra également modifier la sauve- 
garde sous la forme: 

: CSAVÉE 1+ SWAP DO I BLOCK UPDATE 

| DROP SAVE-BUFFERS LOOP ; RE 
Adaptations possibles 
En changeant les caractéristiques de taille de 
bloc, on peut adapter les accès disque à la 
taille des blocs physiques de la disquette; ce- 
ci est particulièrement vrai pour le FORTH AM- 
STRAD où les numéros de blocs disponibles vont 
de 2 à 180 pour le drive ÿG. 
En rajoutant des routines de sélection, recher- 


che, 
TI. 


Se hotes ba 


tri et indexation, vous réinventerez dBASE 


—+ 


du listing 


SCR: 10 SCR: 13 
{ fBASE-I écran 1 MPI0jun85) ( fBASE-I écran 4 MP10jun85) 
VARIABLE RLOC @ RLOC | VARIABLE PHIGH @ PHIGH | 
VARIABLE RLEN Q RLEN ! VARIABLE FNO @ FNO 1 
VARIABLE RNO O RNO L VARIABLE FLOC @ FLOC ! 
VARIABLE REC/ELK @ REC/ELK ! VARIABLE PDONE @ PDONE ! 
VARIABLE BELOCK ©@ BELOCK ! VARIABLE PLOC à PLOC | 
VARIABLE PMAX @ PMAX 1 


IREC ( BBLOCK RLEN -—- ) 
ES : PINIT € TBLLOC --- ) 
DUF PLOC ! 

C@ PMAX C! 
& PDONE ! @ FNQ : 


RECORD 
RING ! 


BHO à 
BELOCE & $ : 
BBLOC SCOR JA 
DUP RLO 
C { fBASE-I écran 5 MPi9jun85) 


VARI :AG 
ABLE DFLAG FBUILD © NO-OF-FLDS --- ) 


SIC NC ASS EE CREATE DUF C, @ DO 

A6 32 WORD NUMBER DROP C, 
DUP 47 » swap 60 < AND j { ligne d'affichage des don 
32 WORD NUMBER DROF C, 


SCR: 11 © colon. d'affichage des données) 
(€ fBASE-I écran 2 MPlOjunes) 32 WORD NUMBER DROP C, 
| { ligne de saisie ) 
PNUMRER € LOC --- FIL ) 32 WORD NUMEER DROP C, 
@ DFLAG !  DUF 14 + SYAP { colonne de saisie ) 
32 WCRD NUMBER DROP C. 
DO { longueur de données ) 
I C@ ?DIGIT 32 WORD NUMBER DROP C, 
KE { type des données } 
1 DFLAG ! 32 VORD NUMBER DROF C, 
ELSE { position des données ds fiche) 
I C@ 82 = I Ce = OR ä4 WORD C@ 1+ ALLOT 
IF { texte à afficher 
LEAVE LOGF DOES» 
ELSE 
| CO 46 = @= 
IR CR! 15 
@ DELAG ! LEAVE © TRASE-T écran 6 MPlAiuneni 
THEN 
THEN ! FFINE © FNO --- FLO: 
THEN PLOC @ 1+ FLOC ! TDUF 
LOUP 
UFLAG © : 
pa 
SCR: 12 FLOC @ 7 + DÙÜP C@ + 1+ FLQC ! 
{ fBASE-I écran 3 MPl@iun8s) LOOP 
| THEN 
ASK ."  (O/N) " KEY " Of" ASC = : FLOC © 
LEN © ADK --- COUNT : FOISPLAY € BLOC --- ) 
:56 à DUP DÜP CG SWAP i+ C@  EVWAP 
5 LOCATE 7 + COUNT 
DUF I + CO ü= FNVCOLOR TYPE INVCOLOR 
IF FLOC &@ 24 C6 FLOC @ 3 + C®@ SWVAP 
Î LEAVE LOCATE FLOC @ 4 + C® G@ 
THEN DO  QS EMIT LOOP ; 
LOCF 
SVAP DROP : 5 POISPEAY © —-- ) 
CLS PMAX C® @ 
WAÏIT € ——- 0 CR CR DO I FFINE FDISPLAV LOCF 


." Appuyer une touche pour continuer” 


KEY DROP : a 
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S 16 
( fBASE-I écran 7 


( FNO --- @ si pas 
FFIND ?FDATA 
IF 


RLOC @ FLOC © 6 + CO + 
FLOC @ 4 + C@ 
FLOC © 5 + C@ 
ELSE 
(0) 
THEN ; 


MPiojun85) 


“ ?PRDATA € FLOC --- FLOC TRUE ou ) 
{ FLOC --- FLOC FALSE ) 
DUP 4 + C@ @= IF DROP © ELSE 1 


donnée 


DUP 2+ CO SWAP 3 + C@ SWAP LOCATE 


THEN 


.Fr 


SWAP OVER DABS 
C# # # 46 HOLD #5 


SIGN #> TYPE SPACE ; 


SCR: 
€ FBASE-T 


19 


MF10jun85) 


FDATA ( FNO --- LOC LENGTH TYPE ou) 


) 


SCR: 17 
( fBASE-I écran 8 


VARIABLE FTYPE @ FTYPE ! 


ROT ROT DDUP BL FILL DROP 
PAD SWAF ROT CMOVE ; 


FNUM 
DDROP PAD DUP 11 + SVAP 
DO 
I C@ = 
IF 
32 I C! 
THEN 
LOOP 
PAD ?NUMBER 
IF 
PAD 1 - NUMBER 
ELSE 


FTEXT « LOC OLEN PLEN ---) 
( Saisie data texte) 


MPi@jun85) 


EN 


THEN ; 


SCR: 18 
( FfBASE-Ï écran 9 


MPi0iun85) 


F WA 


FGET € FNO --- ) 
FDATA TDUP 
IF 
RTYPE ! PAD OVER EXPECT 
IF FTYPE @ 
CASE 


Q OF FTEXT 
OF ENUM DROF EVWAP 
OF FNUM DROP SWAF 
OF FNUM DROP SWAP 
OF FNUM ROT D! 
OF FNUM ROT D! 
ENDCASE 
ELSE 
DROF DROP 
THEN 
THEN : 


or 


en 
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PAD LEN ?7DUP 


de et fi 


ENDOF 


:! ENDOF 


ENDOF 
ENDOF 
ENDOF 
ENDOF 


+ 
ï 
CI 


LE 
SA 
EL 
THE 


PLOC 


FPUT € 


FNO ---— ) 


FDATA ®TDUP 
IF 


DUP FTYPE ! 
CASE 


OF 
OF 
OF 
OF 
OF 
OF 


TYPE 
SWAP 
SYAP 
DROP 
SWAP 
DROP 


ENDCASE 


THEN 


PPUT 


© 


PNEXT 


CKk: 2 
€ fBASE-I 


PADD € Ajouter 
PEDISPLAY PGET @ ; 


E #3 


1 RECORD 


Î 23 


LOOP 


IT Q 


PRSÈRCE 


(2) 


.R 


PGET. {=== 
UPDATE PLOC @ C@ @ DO I FGET LOCF 


C@ 


——— ) 
@ DO I FPUT LOOP 


( Enr. 


) 


C®@ SVAP .R 
@ SVAF .R 
@ © .Fr 


D@ SWAP D.R ENDOF 
de Fr ENDOF 


suivant à ajouter) 
PHIGH @ 1+ DUP PHIGH ! RECORD DROP 


écran li 


SPACE 
zà TYFE CE 


MOD @= 


Û 


IF WAIT CLE 


€ Prend un enr. 


dl Hotres le numéro d'enregistrement!" 
INPUT DROP DUF PHIGH &@ 
IF ." Pas d'enregistrement ? DKOP © 


ELSE RECORD DROP 1 


écran 12 


FEND «€ Termine cette tâche) 
CR ." Etes-vous sûr ” ASK 
PHIGH © © RECORD ! UPDATE 
.” Sauvegarde des fichiers” CR 
VE- BUFFERS .” Au revoir” CE ! 
SE 0 
Le ge 


ou changer un enr.) 


ENDOF 
ENDOF 
ENDOF 
ENDOF 


MPiOjunss) 


MFidDiuns 5 


23 
5 


6 
& 


SCR: 


€ fBASE-I 


MF10jun85) 


“4 


( fBA 


0 
cel 
= 
Le) 
FACE 
s 
TA 
Eu 
Æ 


13 


ecran 


9 PRUILD ADHER 


PMENU € 
CLS 1@ 6 LOCATE 


@@ NOW" 


] 


32 


20 QG QG 7 


PRENOW"” 
SEXE" 
O2 40 9 57 ADRESSE" 


60 O2 
@2 82 


o2 


MAINTENANCE DE FICHIER" 


1 19 LOCATE 
1 12 LOCATE 
1 14 LOCATE 
1 16 LOCATE 


LE 


37 03 Q 54 


o2 


04 @0 05 


Lister’ CR 


OMPL. ADRESSE" 


19 00 10 10 @5 9 137 CDE.POST" 


J 


97 « 


Q 


07 06 ©8 00 40 


CR 
CR 


Afficher fiche” 


Changer fiche” 


e 


OMMUNE"* 


182 MOIS" 


00 15 ©5 @2 


1 18 LOCATE .” 9 - Quitter” CR 


19 2@ LOCATE 


1 


15 


ANNEE ADHESION" 


184 


d 


.” Choisissez une option” KEY 


OF PNEXT PADD 


20 OF PLIST 
51 OF PSELECT 


49 


PINIT 


PHIGE ! ADHER 


@ 


@ RECORD 
BEGIN PMENU 


UNTI 


IF PDISPLAY PPUT WAIT @ THEN 


comme 


il devient possible 


En affectant une variable alphanumérique 


tampon pour chaque fichier, 


52 OF PSELECT 


d'ouvrir plusieurs fichiers simultanément. 


IF PDISPLAY PPUT PGET @ THEN 


étiquettes 


réinventerez les fichiers de type 
d'étiquette hiérarchisée: 


sans paramètre, 


vous 
Exemple 


hiérarchisées, 


En gérant des 


ISAM. 
le champ ETAT-CIVIL, 


57 OF PEND 


@ 
ENDCASE 


et PRENOM". 
commande 


peut regrouper NOM‘ 


SWAP 


du 
champ 
affi- 


d ‘une 
contenu du 


le 


affiche 
ECRIS ETAT-CIVIL pourrait 


l'exécution 


genre ECRIS NOM” 


Dans ce cas, 


4 


suit NOM": 
cher le contenu des champs NOM" 


qui 


et PRENOM". 


et 


réfléchir 


vous laissant 


Et je m'arréte là, 
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Le programme proposé ici, du nom de TRACE permet de représenter 
graphiquement le tracé d'une sinusoïde sur l'écran de votre  AMS- 
TRAD/SCHNEIDER, ceci en langage FORTH. La formule développée ici 
en notation polonaise inverse s'inspire de l'expression: 
v=200+sSin(Fxx)*xA 
où F est la fréquence et A l'amplitude de la courbe. 
Comme il n'est pas possible d'utiliser les nombres non-entiers, 
la fréquence sera représentée par un nombre fractionnaire P/Q; 
pour cinq cycles, on initialisera la variable double précision 
avec-P=5-et-Q=1 ainsi: 
5 1 FRÉQUENCE 2! 
puis on demande le tracé de la courbe en tapant TRACE. 
Le mot AXES trace l'axe horizontal Ox. 
Je vous laisse le soin, à partir de cet exemple, de programmer di- 
verses options telles: 
- graduation de l'axes Ox 
- tracé de l'axe Ov et sa graduation. 
- tracé de courbes multiples. 
sommation de deux ou plusieurs courbes de fréquence et d'am- 
Hits variable. QUE 4 
- modulation d'une courbe par une autre (modulation en anneau). di, 
[I 


De plus, l'AMSTRAD possède l'option “tracé en mode XOR"- A partir l 
de cette option, tracezune barre verticale dont le déplacement la- | 
téral est commandé par les touches flèchées. Les valeursx et y de 

la fonction à l'endroit de l'intersection de la courbe avec la 
barre verticale seront éventuellement affichées. 


Et pour finir, si le coeur vous en dit, remplissez un tableau de 
données avec les différentes valeurs d'une courbe composée et in- 
jectez le résultat dans le convertisseur AN/NA dont LE est fait 
mention dans un précédent article de ce numéro. pi 


DO 7er: w°22 Mars 1886 


